freeslot(
"MT_CSSCREEN",
"S_CSSCREEN0",
"S_CSSCREEN1"
)


mobjinfo[MT_CSSCREEN] = {
spawnstate = S_CSSCREEN0,
reactiontime = 16,
speed = 10*FRACUNIT,
radius = 32*FRACUNIT,
height = 32*FRACUNIT,
damage = 3,
spawnhealth = 0,
dispoffset = 0,
doomednum = 1513,
flags = MF_NOBLOCKMAP|MF_NOGRAVITY|MF_SCENERY|MF_NOCLIPHEIGHT
}

local function A_DoCSSScreen(actor, var1, var2)
	A_FindTracer(actor, MT_PLAYER,0)
	local dist = nil
	
	for player in players.iterate do
			local newDist = R_PointToDist2(actor.x, actor.y, player.mo.x, player.mo.y)
			if (dist) and (dist < newDist) then
				continue
			else
				dist = newDist
				actor.tracer = player.mo
			end
	end
	if (actor.tracer) and (actor.tracer.skin) then
		actor.skin = actor.tracer.skin
		actor.color = actor.tracer.color
		actor.scale = FRACUNIT*4
		actor.sprite2 = 57
	end
end

states[S_CSSCREEN0] = {
sprite = SPR_NULL,
frame = A,
tics = 5,
nextstate = S_CSSCREEN1
}
states[S_CSSCREEN1] = {
sprite = SPR_PLAY,
frame = A|FF_PAPERSPRITE,
tics = 35,
action = A_DoCSSScreen,
nextstate = S_CSSCREEN1
}
